/ BBS in a Box 15 / BBS in a box XV-2.iso / Files II / Prog / U-Z / VideoToolbox 4.95.sit / VideoToolbox / Utilities / Quick3 / Quick3.h

< prev

next >

MacOS 8.1

Win98

DOS

browse contents

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 08 51 75 69 63 6b 33 | 2e 68 00 00 00 00 00 00 |..Quick3|.h......|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 4d 4d 43 | 43 00 00 00 00 00 00 00 |.TEXTMMC|C.......|
|00000050| 00 00 00 00 00 07 eb 00 | 00 01 9a ab 31 7e 6a ab |........|....1~j.|
|00000060| 31 7e 6a 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |1~j.....|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 4a 56 00 00 |........|....JV..|
|00000080| 2f 2a 20 51 75 69 63 6b | 33 2e 68 0d 48 49 53 54 |/* Quick|3.h.HIST|
|00000090| 4f 52 59 3a 0d 33 2f 31 | 30 2f 39 32 20 64 67 70 |ORY:.3/1|0/92 dgp|
|000000a0| 09 43 61 73 74 20 50 41 | 52 41 4d 53 20 74 6f 20 |.Cast PA|RAMS to |
|000000b0| 62 65 20 61 20 73 68 6f | 72 74 20 69 6e 74 2e 0d |be a sho|rt int..|
|000000c0| 09 09 09 49 66 20 61 70 | 70 72 6f 70 72 69 61 74 |...If ap|propriat|
|000000d0| 65 2c 20 75 73 65 20 74 | 68 65 20 36 38 38 38 31 |e, use t|he 68881|
|000000e0| 20 6c 6f 67 20 61 6e 64 | 20 65 78 70 20 69 6e 73 | log and| exp ins|
|000000f0| 74 72 75 63 74 69 6f 6e | 73 20 66 6f 72 20 73 70 |truction|s for sp|
|00000100| 65 65 64 2e 0d 09 09 09 | 46 6f 72 20 73 70 65 65 |eed.....|For spee|
|00000110| 64 2c 20 64 65 66 69 6e | 65 64 20 65 78 70 31 30 |d, defin|ed exp10|
|00000120| 28 29 2c 20 61 6e 64 20 | 75 73 65 20 65 78 70 20 |(), and |use exp |
|00000130| 61 6e 64 20 6c 6f 67 20 | 74 6f 20 63 6f 6d 70 75 |and log |to compu|
|00000140| 74 65 20 70 6f 77 2e 0d | 09 09 09 54 68 65 73 65 |te pow..|...These|
|00000150| 20 63 68 61 6e 67 65 73 | 20 73 70 65 65 64 20 75 | changes| speed u|
|00000160| 70 20 74 68 65 20 63 6f | 6d 70 75 74 61 74 69 6f |p the co|mputatio|
|00000170| 6e 20 65 6e 6f 72 6d 6f | 75 73 6c 79 2c 20 70 65 |n enormo|usly, pe|
|00000180| 72 68 61 70 73 20 35 30 | 2d 66 6f 6c 64 2c 0d 09 |rhaps 50|-fold,..|
|00000190| 09 09 79 65 74 20 77 68 | 65 6e 20 72 75 6e 20 6f |..yet wh|en run o|
|000001a0| 6e 20 22 73 61 6d 70 6c | 65 2e 64 61 74 61 22 20 |n "sampl|e.data" |
|000001b0| 74 68 65 20 72 65 73 75 | 6c 74 69 6e 67 20 22 73 |the resu|lting "s|
|000001c0| 61 6d 70 6c 65 2e 66 69 | 74 22 20 69 73 20 75 6e |ample.fi|t" is un|
|000001d0| 63 68 61 6e 67 65 64 2e | 0d 2a 2f 0d 23 70 72 61 |changed.|.*/.#pra|
|000001e0| 67 6d 61 20 6f 6e 63 65 | 09 2f 2a 20 70 72 65 76 |gma once|./* prev|
|000001f0| 65 6e 74 20 6d 75 6c 74 | 69 70 6c 65 20 69 6e 63 |ent mult|iple inc|
|00000200| 6c 75 73 69 6f 6e 73 20 | 6f 66 20 74 68 69 73 20 |lusions |of this |
|00000210| 66 69 6c 65 20 2a 2f 0d | 23 69 6e 63 6c 75 64 65 |file */.|#include|
|00000220| 20 3c 6d 61 74 68 2e 68 | 3e 0d 23 69 6e 63 6c 75 | <math.h|>.#inclu|
|00000230| 64 65 20 3c 73 74 64 69 | 6f 2e 68 3e 09 2f 2a 20 |de <stdi|o.h>./* |
|00000240| 6e 65 65 64 65 64 20 66 | 6f 72 20 70 72 6f 74 6f |needed f|or proto|
|00000250| 74 79 70 65 73 20 2a 2f | 0d 23 69 6e 63 6c 75 64 |types */|.#includ|
|00000260| 65 20 3c 73 74 64 6c 69 | 62 2e 68 3e 0d 23 64 65 |e <stdli|b.h>.#de|
|00000270| 66 69 6e 65 20 4d 41 58 | 5f 43 4f 4e 54 52 41 53 |fine MAX|_CONTRAS|
|00000280| 54 53 20 32 30 30 0d 23 | 64 65 66 69 6e 65 20 49 |TS 200.#|define I|
|00000290| 4c 4c 45 47 41 4c 5f 50 | 41 52 41 4d 45 54 45 52 |LLEGAL_P|ARAMETER|
|000002a0| 53 20 2d 31 2e 30 09 2f | 2a 20 75 6e 69 71 75 65 |S -1.0./|* unique|
|000002b0| 20 76 61 6c 75 65 20 69 | 6e 64 69 63 61 74 69 6e | value i|ndicatin|
|000002c0| 67 20 70 61 72 61 6d 65 | 74 65 72 73 20 6f 75 74 |g parame|ters out|
|000002d0| 20 6f 66 20 62 6f 75 6e | 64 73 20 2a 2f 0d 23 64 | of boun|ds */.#d|
|000002e0| 65 66 69 6e 65 20 4d 41 | 43 49 4e 54 4f 53 48 20 |efine MA|CINTOSH |
|000002f0| 31 0d 23 69 6e 63 6c 75 | 64 65 20 22 6d 63 36 38 |1.#inclu|de "mc68|
|00000300| 38 38 31 2e 68 22 0d 23 | 69 66 20 28 54 48 49 4e |881.h".#|if (THIN|
|00000310| 4b 5f 43 20 7c 7c 20 54 | 48 49 4e 4b 5f 43 50 4c |K_C || T|HINK_CPL|
|00000320| 55 53 29 20 26 26 20 6d | 63 36 38 38 38 31 0d 09 |US) && m|c68881..|
|00000330| 23 64 65 66 69 6e 65 20 | 65 78 70 20 5f 65 78 70 |#define |exp _exp|
|00000340| 09 2f 2a 20 75 73 65 20 | 66 61 73 74 20 36 38 38 |./* use |fast 688|
|00000350| 38 31 20 69 6e 73 74 72 | 75 63 74 69 6f 6e 20 69 |81 instr|uction i|
|00000360| 6e 73 74 65 61 64 20 6f | 66 20 53 41 4e 45 20 2a |nstead o|f SANE *|
|00000370| 2f 0d 09 23 64 65 66 69 | 6e 65 20 6c 6f 67 20 5f |/..#defi|ne log _|
|00000380| 6c 6f 67 09 2f 2a 20 75 | 73 65 20 66 61 73 74 20 |log./* u|se fast |
|00000390| 36 38 38 38 31 20 69 6e | 73 74 72 75 63 74 69 6f |68881 in|structio|
|000003a0| 6e 20 69 6e 73 74 65 61 | 64 20 6f 66 20 53 41 4e |n instea|d of SAN|
|000003b0| 45 20 2a 2f 0d 23 65 6e | 64 69 66 0d 23 69 66 6e |E */.#en|dif.#ifn|
|000003c0| 64 65 66 20 65 78 70 31 | 30 0d 09 23 64 65 66 69 |def exp1|0..#defi|
|000003d0| 6e 65 20 65 78 70 31 30 | 28 78 29 20 65 78 70 28 |ne exp10|(x) exp(|
|000003e0| 4c 4f 47 31 30 2a 28 78 | 29 29 09 09 09 2f 2a 20 |LOG10*(x|)).../* |
|000003f0| 66 61 73 74 65 72 20 74 | 68 61 6e 20 70 6f 77 28 |faster t|han pow(|
|00000400| 31 30 2e 30 2c 78 29 20 | 2a 2f 0d 23 65 6e 64 69 |10.0,x) |*/.#endi|
|00000410| 66 0d 23 75 6e 64 65 66 | 20 70 6f 77 0d 23 64 65 |f.#undef| pow.#de|
|00000420| 66 69 6e 65 20 70 6f 77 | 28 78 2c 79 29 20 65 78 |fine pow|(x,y) ex|
|00000430| 70 28 6c 6f 67 28 78 29 | 2a 28 79 29 29 09 09 09 |p(log(x)|*(y))...|
|00000440| 2f 2a 20 66 61 73 74 65 | 72 20 62 79 20 75 73 65 |/* faste|r by use|
|00000450| 20 6f 66 20 36 38 38 38 | 31 20 69 6e 73 74 72 75 | of 6888|1 instru|
|00000460| 63 74 69 6f 6e 73 20 2a | 2f 0d 23 69 66 20 21 64 |ctions *|/.#if !d|
|00000470| 65 66 69 6e 65 64 28 4c | 4f 47 31 30 29 0d 09 23 |efined(L|OG10)..#|
|00000480| 64 65 66 69 6e 65 20 4c | 4f 47 31 30 09 32 2e 33 |define L|OG10.2.3|
|00000490| 30 32 35 38 35 30 39 32 | 39 39 34 30 34 35 36 38 |02585092|99404568|
|000004a0| 34 30 32 09 2f 2a 20 63 | 6f 6d 70 75 74 65 64 20 |402./* c|omputed |
|000004b0| 69 6e 20 4d 61 74 68 65 | 6d 61 74 69 63 61 20 2a |in Mathe|matica *|
|000004c0| 2f 0d 23 65 6e 64 69 66 | 0d 0d 74 79 70 65 64 65 |/.#endif|..typede|
|000004d0| 66 20 73 74 72 75 63 74 | 20 7b 0d 09 64 6f 75 62 |f struct| {..doub|
|000004e0| 6c 65 20 63 6f 6e 74 72 | 61 73 74 3b 0d 09 6c 6f |le contr|ast;..lo|
|000004f0| 6e 67 20 74 72 69 61 6c | 73 3b 0d 09 6c 6f 6e 67 |ng trial|s;..long|
|00000500| 20 63 6f 72 72 65 63 74 | 3b 0d 7d 20 63 6f 6e 74 | correct|;.} cont|
|00000510| 72 61 73 74 52 65 63 6f | 72 64 3b 0d 0d 74 79 70 |rastReco|rd;..typ|
|00000520| 65 64 65 66 20 73 74 72 | 75 63 74 20 7b 0d 09 6c |edef str|uct {..l|
|00000530| 6f 6e 67 20 63 6f 6e 74 | 72 61 73 74 73 3b 0d 09 |ong cont|rasts;..|
|00000540| 63 6f 6e 74 72 61 73 74 | 52 65 63 6f 72 64 20 63 |contrast|Record c|
|00000550| 5b 4d 41 58 5f 43 4f 4e | 54 52 41 53 54 53 5d 3b |[MAX_CON|TRASTS];|
|00000560| 09 2f 2a 20 61 6e 20 61 | 72 72 61 79 20 6f 66 20 |./* an a|rray of |
|00000570| 72 65 63 6f 72 64 73 20 | 69 73 20 65 61 73 69 65 |records |is easie|
|00000580| 72 20 74 6f 20 73 6f 72 | 74 20 2a 2f 0d 7d 20 64 |r to sor|t */.} d|
|00000590| 61 74 61 52 65 63 6f 72 | 64 3b 0d 0d 74 79 70 65 |ataRecor|d;..type|
|000005a0| 64 65 66 20 73 74 72 75 | 63 74 20 7b 0d 09 64 6f |def stru|ct {..do|
|000005b0| 75 62 6c 65 20 6c 6f 67 | 41 6c 70 68 61 3b 0d 09 |uble log|Alpha;..|
|000005c0| 64 6f 75 62 6c 65 20 62 | 65 74 61 3b 0d 09 64 6f |double b|eta;..do|
|000005d0| 75 62 6c 65 20 67 61 6d | 6d 61 3b 0d 09 64 6f 75 |uble gam|ma;..dou|
|000005e0| 62 6c 65 20 64 65 6c 74 | 61 3b 0d 7d 20 70 61 72 |ble delt|a;.} par|
|000005f0| 61 6d 52 65 63 6f 72 64 | 3b 0d 0d 23 64 65 66 69 |amRecord|;..#defi|
|00000600| 6e 65 20 50 41 52 41 4d | 53 20 28 28 73 68 6f 72 |ne PARAM|S ((shor|
|00000610| 74 29 28 73 69 7a 65 6f | 66 28 70 61 72 61 6d 52 |t)(sizeo|f(paramR|
|00000620| 65 63 6f 72 64 29 2f 73 | 69 7a 65 6f 66 28 64 6f |ecord)/s|izeof(do|
|00000630| 75 62 6c 65 29 29 29 0d | 0d 74 79 70 65 64 65 66 |uble))).|.typedef|
|00000640| 20 64 6f 75 62 6c 65 20 | 28 2a 50 73 79 63 68 6f | double |(*Psycho|
|00000650| 6d 65 74 72 69 63 46 75 | 6e 63 74 69 6f 6e 50 74 |metricFu|nctionPt|
|00000660| 72 29 28 64 6f 75 62 6c | 65 20 63 6f 6e 74 72 61 |r)(doubl|e contra|
|00000670| 73 74 2c 70 61 72 61 6d | 52 65 63 6f 72 64 20 2a |st,param|Record *|
|00000680| 70 61 72 61 6d 50 74 72 | 29 3b 0d 0d 64 6f 75 62 |paramPtr|);..doub|
|00000690| 6c 65 20 57 65 69 62 75 | 6c 6c 28 64 6f 75 62 6c |le Weibu|ll(doubl|
|000006a0| 65 20 63 6f 6e 74 72 61 | 73 74 2c 70 61 72 61 6d |e contra|st,param|
|000006b0| 52 65 63 6f 72 64 20 2a | 70 61 72 61 6d 50 74 72 |Record *|paramPtr|
|000006c0| 29 3b 0d 64 6f 75 62 6c | 65 20 4c 6f 67 4c 69 6b |);.doubl|e LogLik|
|000006d0| 65 6c 69 68 6f 6f 64 28 | 64 61 74 61 52 65 63 6f |elihood(|dataReco|
|000006e0| 72 64 20 2a 64 61 74 61 | 2c 70 61 72 61 6d 52 65 |rd *data|,paramRe|
|000006f0| 63 6f 72 64 20 2a 70 61 | 72 61 6d 73 2c 0d 09 50 |cord *pa|rams,..P|
|00000700| 73 79 63 68 6f 6d 65 74 | 72 69 63 46 75 6e 63 74 |sychomet|ricFunct|
|00000710| 69 6f 6e 50 74 72 20 50 | 73 79 63 68 46 75 6e 29 |ionPtr P|sychFun)|
|00000720| 3b 0d 64 6f 75 62 6c 65 | 20 50 73 79 63 68 6f 6d |;.double| Psychom|
|00000730| 65 74 72 69 63 46 69 74 | 28 70 61 72 61 6d 52 65 |etricFit|(paramRe|
|00000740| 63 6f 72 64 20 2a 70 61 | 72 61 6d 50 74 72 0d 09 |cord *pa|ramPtr..|
|00000750| 2c 50 73 79 63 68 6f 6d | 65 74 72 69 63 46 75 6e |,Psychom|etricFun|
|00000760| 63 74 69 6f 6e 50 74 72 | 20 50 73 79 63 68 46 75 |ctionPtr| PsychFu|
|00000770| 6e 0d 09 2c 64 61 74 61 | 52 65 63 6f 72 64 20 2a |n..,data|Record *|
|00000780| 64 61 74 61 50 74 72 2c | 64 6f 75 62 6c 65 20 2a |dataPtr,|double *|
|00000790| 6c 6f 67 4c 69 6b 65 6c | 69 68 6f 6f 64 50 74 72 |logLikel|ihoodPtr|
|000007a0| 2c 69 6e 74 20 64 65 67 | 72 65 65 73 4f 66 46 72 |,int deg|reesOfFr|
|000007b0| 65 65 64 6f 6d 0d 09 2c | 64 6f 75 62 6c 65 20 2a |eedom..,|double *|
|000007c0| 63 68 69 53 71 75 61 72 | 65 50 74 72 2c 69 6e 74 |chiSquar|ePtr,int|
|000007d0| 20 2a 63 68 69 53 71 75 | 61 72 65 44 46 50 74 72 | *chiSqu|areDFPtr|
|000007e0| 29 3b 0d 76 6f 69 64 20 | 4d 6f 6e 6f 74 6f 6e 69 |);.void |Monotoni|
|000007f0| 63 46 69 74 28 64 61 74 | 61 52 65 63 6f 72 64 20 |cFit(dat|aRecord |
|00000800| 2a 64 61 74 61 2c 64 6f | 75 62 6c 65 20 2a 6c 6f |*data,do|uble *lo|
|00000810| 67 4c 69 6b 65 6c 69 68 | 6f 6f 64 50 74 72 2c 69 |gLikelih|oodPtr,i|
|00000820| 6e 74 20 2a 64 65 67 72 | 65 65 73 4f 66 46 72 65 |nt *degr|eesOfFre|
|00000830| 65 64 6f 6d 50 74 72 29 | 3b 0d 76 6f 69 64 20 53 |edomPtr)|;.void S|
|00000840| 6f 72 74 41 6e 64 4d 65 | 72 67 65 43 6f 6e 74 72 |ortAndMe|rgeContr|
|00000850| 61 73 74 73 28 64 61 74 | 61 52 65 63 6f 72 64 20 |asts(dat|aRecord |
|00000860| 2a 64 61 74 61 50 74 72 | 29 3b 0d 00 00 00 00 00 |*dataPtr|);......|
|00000870| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000880| 00 00 01 00 00 00 01 54 | 00 00 00 54 00 00 00 46 |.......T|...T...F|
|00000890| 00 00 13 7f 0d 42 61 73 | 69 63 20 54 6f 6f 6c 62 |.....Bas|ic Toolb|
|000008a0| 6f 78 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |ox......|........|
|000008b0| 08 51 75 69 63 6b 33 2e | 68 00 02 00 00 00 50 61 |.Quick3.|h.....Pa|
|000008c0| 72 74 53 49 54 21 00 00 | 00 00 00 00 00 00 00 00 |rtSIT!..|........|
|000008d0| 00 00 50 61 72 74 53 49 | 54 21 00 00 00 00 00 00 |..PartSI|T!......|
|000008e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000008f0| 00 00 ab bf ee 4e 00 00 | 00 00 00 00 01 9a 66 65 |.....N..|......fe|
|00000900| 72 65 6e 63 65 00 00 00 | 00 00 06 44 25 00 00 00 |rence...|...D%...|
|00000910| 13 7f 08 57 57 53 4f 20 | 4d 67 72 00 00 00 00 00 |...WWSO |Mgr.....|
|00000920| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000930| 00 00 00 00 06 46 25 00 | 00 00 13 8b 09 4d 45 58 |.....F%.|.....MEX|
|00000940| 20 61 6c 69 61 73 00 00 | 00 00 00 00 00 00 00 00 | alias..|........|
|00000950| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 09 34 |........|.......4|
|00000960| 25 00 00 00 13 8e 00 00 | 00 00 00 00 00 00 00 00 |%.......|........|
|00000970| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000980| 00 00 00 48 00 09 4d 6f | 6e 61 63 6f 00 00 00 00 |...H..Mo|naco....|
|00000990| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000009a0| 00 00 00 00 00 00 00 03 | 00 04 00 3d 00 03 01 a0 |........|...=....|
|000009b0| 02 7d 00 3d 00 03 01 a0 | 02 7d ab 31 38 23 00 00 |.}.=....|.}.18#..|
|000009c0| 01 aa 00 00 01 aa 00 00 | 00 00 00 00 00 00 00 04 |........|........|
|000009d0| 00 01 00 01 00 00 01 00 | 00 00 01 54 00 00 00 54 |........|...T...T|
|000009e0| 00 00 00 46 00 b8 5c 88 | 41 bc 00 00 00 1c 00 46 |...F..\.|A......F|
|000009f0| 00 01 4d 50 53 52 00 00 | 00 12 4d 57 42 42 00 00 |..MPSR..|..MWBB..|
|00000a00| 00 1e 03 ed ff ff 00 00 | 00 00 00 00 00 00 03 f0 |........|........|
|00000a10| ff ff 00 00 00 4c 00 00 | 00 00 00 00 00 00 00 00 |.....L..|........|
|00000a20| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000a30| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000a40| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000a50| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000a60| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000a70| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+